<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.3</name>
<id>-1</id>
<cardCount>259</cardCount>
<cardID>2388</cardID>
<listID>22636</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>-- handlers for maintaining indexes, and for our Find commandon openstackglobal seektext -- for our Find command, initialiseput empty into seektextunmark all cards -- card marking used for our dynamic list updatingend openstackon newcardwait 30 ticks -- to give dust time to settleclick at 10,10 -- start of the name field, get cursor blinking theremark this card -- signify that we need to update from thisend newcardon closecardif not the marked of this card then exit closecardanswer "Update index from this card?" with "No" or "Yes"if it is "Yes" then-- our quick updater routineunmark this cardput "Updating..."lock screenlock messagespush cdput word 1 of fld "name" into theNameput word 1 of fld "type" into theTypeput word 1 of fld "where" into theWhere-- put them into their indexes, but only if not duplicatesfind word theName in cd fld "list" of first cdif the result is not emptythen put theName & return after cd fld "list" of first cdelse-- check more intelligentlyif (return & theName & return) is in cd fld "list" of cd 1 thenanswer quote & theName & quote && ¬"may be a duplicate name; you may wish to check on this, and "¬& "full reindexing may be required."end ifend iffind word theType in cd fld "type list" of first cdif the result is not emptythen put theType & return after cd fld "type list" of first cdfind word theWhere in cd fld "where list" of first cdif the result is not emptythen put theWhere & return after cd fld "where list" of first cd-- sort the indexes (may not be needed for all, but who cares)sort the lines of cd fld "list" of first cardsort the lines of cd fld "type list" of first cdsort the lines of cd fld "where list" of first cdpop cdput ""hide msgend ifend closecardon domenu whatif what is "Find..." then-- handle Findsend mouseup to bg fld id 6 of cd 1else if what is "Delete Card" or what is "Cut Card" thenif "catalogue" is in the name of this bg then-- handle updating, name only because we want to be quickput the visible of window "Message" into msgVisput "updating index…"put bg fld "name" into ournamelock screenlock messagespush cardgo first card-- it really shouldn't be there multiple times, but check anywayrepeat with x = 1 to the number of lines of cd fld "list"if line x of cd fld "list" is ourname thendelete line x of cd fld "list"exit repeatend ifend repeatpop cardput ""set the visible of window "Message" to msgVispass domenuelsepass domenuend ifelsepass domenuend ifend domenuon commandKeyDown what-- capture command-G for our Findglobal seektextif what is "G" thenif seektext is not empty thenlock screengo next cardfind chars seektext in bg fld "what it does"end ifelsepass commandKeyDownend ifend commandKeyDownon rebuildIndex-- called by pushing a reindex button-- just like the closeCard handler, except that we start afresh...-- and do it for every card, slowly and accuratelyunmark all cdsshow msg at 0,50put "Updating Index…"set cursor to busylock screenput return into myListput return into myTypeListput return into myWhereListput the number of cds of bg "catalogue" into limitrepeat with x = 1 to limitif the mouseclick then abortRebuild -- give the user a chance to pull outget bg fld "name" of cd x of bg "catalogue"if (return & it & return) is not in myListthen put it & return after myListget word 1 of bg fld "type" of cd x of bg "catalogue"if (return & it & return) is not in myTypeListthen put it & return after myTypeListget word 1 of bg fld "where" of cd x of bg "catalogue"if (return & it & return) is not in myWhereListthen put it & return after myWhereListput "Updating Index… [" & x & "] of " & limitend repeatput "Sorting Index…"delete line 1 of myListsort the lines of myListput myList into cd fld "list" of first carddelete line 1 of myTypeListsort the lines of myTypeListput myTypeList into cd fld "type list" of first cddelete line 1 of myWhereListsort the lines of myWhereListput myWhereList into cd fld "where list" of first cdput ""hide msgend rebuildIndexon abortRebuildput "Index updating interrupted, the stack remains untouched."exit to hypercardend abortRebuild</script>
